THX THY translate THSX THSY scale ! neg # neg translate /thstate save def